; REGRS.SUB ... Compile, link and go for REGRS1 and REGRS2
A:F80 =B:REGRS1
A:F80 =B:MATSUB
A:F80 =B:PRBSUB
A:F80 =B:REGRS2
A:L80 B:REGRS1,B:MATSUB,B:PRBSUB,A:FORLIB/S,B:REG1/N/E
A:L80 B:REGRS2,A:FORLIB/S,B:REG2/N/E
XSUB
B:
ERA FORT10.DAT
; Execute REG1 & REG2 for B:TEST1.DAT
A:PIP FORT06.DAT=TEST1.DAT
REG1
6
REG2
